home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AutoScripter.cpt / AutoScripter / card_4712.txt < prev    next >
Text File  |  1988-03-05  |  3KB  |  150 lines
  1. -- card: 4712 from stack: in
  2. -- bmap block id: 5529
  3. -- flags: 4000
  4. -- background id: 2786
  5. -- name: hide items
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=180 top=163 right=185 bottom=296
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: menuBar
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   global holder
  23.   put "menuBar" & return after holder
  24.   put holder after field "script-it" of card "main card"
  25.   visual effect wipe left
  26.   pop card
  27. end mouseUp
  28.  
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: 8003
  34. -- rect: left=179 top=189 right=210 bottom=297
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: tool window
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   global holder
  46.   put "tool window" & return after holder
  47.   put holder after field "script-it" of card "main card"
  48.   visual effect wipe left
  49.   pop card
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 3 (button)
  55. -- low flags: 00
  56. -- high flags: 8003
  57. -- rect: left=180 top=215 right=236 bottom=300
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: pattern window
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   global holder
  69.   put "pattern window" & return after holder
  70.   put holder after field "script-it" of card "main card"
  71.   visual effect wipe left
  72.   pop card
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 4 (button)
  78. -- low flags: 00
  79. -- high flags: 8003
  80. -- rect: left=180 top=241 right=262 bottom=301
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: message box
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   global holder
  92.   put "message box" & return after holder
  93.   put holder after field "script-it" of card "main card"
  94.   visual effect wipe left
  95.   pop card
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 5 (button)
  101. -- low flags: 00
  102. -- high flags: 8003
  103. -- rect: left=181 top=267 right=288 bottom=302
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: button
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   global holder
  115.   answer "What kind of button?" with "background" or "card"
  116.   put it into butType
  117.   ask "Enter button's name:"
  118.   put butType && "button" && quote & it & quote & return after holder
  119.   put holder after field "script-it" of card "main card"
  120.   visual effect wipe left
  121.   pop card
  122. end mouseUp
  123.  
  124.  
  125.  
  126. -- part 6 (button)
  127. -- low flags: 00
  128. -- high flags: 8003
  129. -- rect: left=181 top=293 right=314 bottom=302
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: field
  138. ----- HyperTalk script -----
  139. on mouseUp
  140.   global holder
  141.   answer "What kind of field?" with "background" or "card"
  142.   put it into fieldType
  143.   ask "Enter field's name:"
  144.   put fieldType && "button" && quote & it & quote & return after holder
  145.   put holder after field "script-it" of card "main card"
  146.   visual effect wipe left
  147.   pop card
  148. end mouseUp
  149.  
  150.